home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 7
/
Aminet 7 - August 1995.iso
/
Aminet
/
misc
/
math
/
gpamiga_1_38_3.lha
/
examples
/
bench.gp
next >
Encoding:
Amiga
Atari
Commodore
DOS
FM Towns/JPY
Macintosh
Macintosh JP
Macintosh to JP
NeXTSTEP
RISC OS/Acorn
Shift JIS
UTF-8
Wrap
Text File
|
1993-08-05
|
100 b
|
3 lines
u=1;v=1;p=1;q=1;
for(k=1,1000,w=u+v;u=v;v=w;p=p*w;q=lcm(q,w);if(k%10,,print(k," ",log(p)/log(q))));